home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / BIRTHDAY.BAS < prev    next >
BASIC Source File  |  1996-06-20  |  607b  |  28 lines
  1. 10 SCREEN 1,0:CLS:KEY OFF
  2. 20 GOSUB 100
  3. 30 GOSUB 300
  4. 35 GOSUB 200
  5. 50 END
  6. 100 'WRITE YOUR AGE
  7. 110 INPUT "Yaƒìnìz : ";YAS
  8. 120 RETURN
  9. 200 'MUSIC
  10. 210 PLAY "T120 L4 MB MN"
  11. 220 PLAY "O4 C8 C8 D C F E2"
  12. 230 PLAY "C8 C8 D C G F2"
  13. 240 PLAY "C8 C8 05 C 04 A F E D2"
  14. 250 PLAY "T90 B-8 B-8 A F G F2"
  15. 260 RETURN
  16. 300 'KEKLI MUM
  17. 310 CIRCLE (160,80),150,,,,.1
  18. 320 CIRCLE (160,180),150,,3.15,0,.1
  19. 330 LINE (10,80)-(10,180)
  20. 340 LINE (310,80)-(310,180)
  21. 350 FOR C=1 TO YAS
  22. 360 D=290/YAS
  23. 370 LINE (10+D*C,80)-(12+D*C,40),1,BF
  24. 380 CIRCLE (11+D*C,40),3,2
  25. 390 PAINT (11+D*C,40),2,2
  26. 400 NEXT C
  27. 410 RETURN
  28.